home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1997-03-29 | 2.3 KB |
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: ';This program shows you how to use the AmiTCP extension to connect'
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 54 68 69 73 20 70 72 | 6f 67 72 61 6d 20 73 68 |;This pr|ogram sh|
|00000010| 6f 77 73 20 79 6f 75 20 | 68 6f 77 20 74 6f 20 75 |ows you |how to u|
|00000020| 73 65 20 74 68 65 20 41 | 6d 69 54 43 50 20 65 78 |se the A|miTCP ex|
|00000030| 74 65 6e 73 69 6f 6e 20 | 74 6f 20 63 6f 6e 6e 65 |tension |to conne|
|00000040| 63 74 00 3b 74 6f 20 61 | 6e 20 46 54 50 20 73 65 |ct.;to a|n FTP se|
|00000050| 72 76 65 72 20 61 6e 64 | 20 62 65 20 61 62 6c 65 |rver and| be able|
|00000060| 20 74 6f 20 73 65 6e 64 | 20 63 6f 6d 6d 61 6e 64 | to send| command|
|00000070| 73 20 61 6e 64 20 72 65 | 61 64 20 72 65 73 70 6f |s and re|ad respo|
|00000080| 6e 73 65 73 00 3b 66 72 | 6f 6d 20 73 65 72 76 65 |nses.;fr|om serve|
|00000090| 72 2e 20 54 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |r. This |program |
|000000a0| 69 73 20 6f 6e 6c 79 20 | 61 20 64 65 6d 6f 6e 73 |is only |a demons|
|000000b0| 74 72 61 74 69 6f 6e 20 | 70 72 6f 67 72 61 6d 20 |tration |program |
|000000c0| 61 6e 64 20 6e 6f 74 00 | 3b 61 20 66 75 6c 6c 20 |and not.|;a full |
|000000d0| 46 54 50 20 73 65 72 76 | 65 72 2e 00 00 3b 43 72 |FTP serv|er...;Cr|
|000000e0| 65 61 74 65 20 69 6d 70 | 6f 72 74 61 6e 74 20 73 |eate imp|ortant s|
|000000f0| 74 72 75 63 74 75 72 65 | 73 00 80 01 2e 6c 69 73 |tructure|s....lis|
|00000100| 74 00 2a 49 74 65 6d 41 | 2e 62 00 2a 49 74 65 6d |t.*ItemA|.b.*Item|
|00000110| 42 2e 62 00 80 02 20 80 | 01 00 80 01 2e 69 6e 61 |B.b... .|.....ina|
|00000120| 64 64 72 00 73 5f 61 64 | 64 72 2e 6c 00 80 02 20 |ddr.s_ad|dr.l... |
|00000130| 80 01 00 80 01 2e 73 6f | 63 6b 61 64 64 72 69 6e |......so|ckaddrin|
|00000140| 00 73 69 6e 5f 6c 65 6e | 2e 62 00 73 69 6e 5f 66 |.sin_len|.b.sin_f|
|00000150| 61 6d 69 6c 79 2e 62 00 | 73 69 6e 5f 70 6f 72 74 |amily.b.|sin_port|
|00000160| 2e 77 00 73 69 6e 5f 61 | 64 64 72 2e 69 6e 61 64 |.w.sin_a|ddr.inad|
|00000170| 64 72 00 73 69 6e 5f 7a | 65 72 6f 2e 62 5b 38 5d |dr.sin_z|ero.b[8]|
|00000180| 00 80 02 20 80 01 00 80 | 01 2e 68 6f 73 74 65 6e |... ....|..hosten|
|00000190| 74 00 2a 68 5f 6e 61 6d | 65 2e 62 00 2a 68 5f 61 |t.*h_nam|e.b.*h_a|
|000001a0| 6c 69 61 73 65 73 2e 6c | 69 73 74 00 68 5f 61 64 |liases.l|ist.h_ad|
|000001b0| 64 72 74 79 70 65 2e 6c | 00 68 5f 6c 65 6e 67 68 |drtype.l|.h_lengh|
|000001c0| 74 2e 6c 00 2a 68 5f 61 | 64 64 72 5f 6c 69 73 74 |t.l.*h_a|ddr_list|
|000001d0| 2e 6c 69 73 74 00 80 02 | 20 80 01 00 00 3b 49 6e |.list...| ....;In|
|000001e0| 70 75 74 20 53 65 72 76 | 65 72 73 20 6e 61 6d 65 |put Serv|ers name|
|000001f0| 00 dd 81 22 45 6e 74 65 | 72 20 73 65 72 76 65 72 |..."Ente|r server|
|00000200| 27 73 20 6e 61 6d 65 3f | 22 00 61 24 3d dd 01 28 |'s name?|".a$=..(|
|00000210| 34 30 29 00 00 3b 43 72 | 65 61 74 65 20 61 20 73 |40)..;Cr|eate a s|
|00000220| 6f 63 6b 65 74 00 73 6f | 63 6b 2e 6c 3d ec 81 28 |ocket.so|ck.l=..(|
|00000230| 32 2c 31 2c 30 29 00 00 | 3b 47 65 74 20 68 6f 73 |2,1,0)..|;Get hos|
|00000240| 74 20 64 65 74 61 69 6c | 73 00 2a 61 2e 68 6f 73 |t detail|s.*a.hos|
|00000250| 74 65 6e 74 3d ec 9f 28 | 61 24 29 00 00 3b 43 6f |tent=..(|a$)..;Co|
|00000260| 70 79 20 44 65 74 61 69 | 6c 73 20 74 6f 20 6f 75 |py Detai|ls to ou|
|00000270| 72 20 53 6f 63 6b 61 64 | 64 72 69 6e 20 73 74 72 |r Sockad|drin str|
|00000280| 75 63 74 75 72 65 00 62 | 62 3d fe db 28 2a 61 2e |ucture.b|b=..(*a.|
|00000290| 68 6f 73 74 65 6e 74 5c | 68 5f 61 64 64 72 5f 6c |hostent\|h_addr_l|
|000002a0| 69 73 74 5c 49 74 65 6d | 41 2c 26 68 6f 73 74 2e |ist\Item|A,&host.|
|000002b0| 73 6f 63 6b 61 64 64 72 | 69 6e 5c 73 69 6e 5f 61 |sockaddr|in\sin_a|
|000002c0| 64 64 72 2c 2a 61 2e 68 | 6f 73 74 65 6e 74 5c 68 |ddr,*a.h|ostent\h|
|000002d0| 5f 6c 65 6e 67 68 74 29 | 00 00 68 6f 73 74 2e 73 |_lenght)|..host.s|
|000002e0| 6f 63 6b 61 64 64 72 69 | 6e 5c 73 69 6e 5f 70 6f |ockaddri|n\sin_po|
|000002f0| 72 74 3d 32 31 20 20 20 | 20 20 20 20 20 20 3b 53 |rt=21 | ;S|
|00000300| 65 74 20 70 6f 72 74 20 | 66 6f 72 20 46 54 50 00 |et port |for FTP.|
|00000310| 68 6f 73 74 2e 73 6f 63 | 6b 61 64 64 72 69 6e 5c |host.soc|kaddrin\|
|00000320| 73 69 6e 5f 66 61 6d 69 | 6c 79 3d 32 20 20 20 20 |sin_fami|ly=2 |
|00000330| 20 20 20 20 3b 53 65 74 | 20 74 79 70 65 20 74 6f | ;Set| type to|
|00000340| 20 41 54 5f 49 4e 45 54 | 00 6c 65 6e 67 68 74 3d | AT_INET|.lenght=|
|00000350| 80 2f 2e 73 6f 63 6b 61 | 64 64 72 69 6e 20 20 20 |./.socka|ddrin |
|00000360| 20 20 20 20 20 20 20 20 | 20 3b 47 65 74 20 6c 65 | | ;Get le|
|00000370| 6e 67 68 74 20 6f 66 20 | 73 74 72 75 63 74 75 72 |nght of |structur|
|00000380| 65 20 73 6f 63 6b 61 64 | 64 72 69 6e 00 00 3b 43 |e sockad|drin..;C|
|00000390| 6f 6e 6e 65 63 74 20 74 | 6f 20 68 6f 73 74 00 62 |onnect t|o host.b|
|000003a0| 3d ec 85 28 73 6f 63 6b | 2e 6c 2c 68 6f 73 74 2e |=..(sock|.l,host.|
|000003b0| 73 6f 63 6b 61 64 64 72 | 69 6e 2c 6c 65 6e 67 68 |sockaddr|in,lengh|
|000003c0| 74 29 00 80 0b 20 62 3d | 2d 31 20 80 21 20 dd 82 |t)... b=|-1 .! ..|
|000003d0| 22 55 6e 61 62 6c 65 20 | 74 6f 20 63 6f 6e 6e 65 |"Unable |to conne|
|000003e0| 63 74 20 74 6f 20 68 6f | 73 74 2e 22 3a 80 05 20 |ct to ho|st.":.. |
|000003f0| 66 69 6e 69 73 68 00 00 | 3b 41 6c 6c 6f 63 61 74 |finish..|;Allocat|
|00000400| 65 20 62 75 66 66 65 72 | 00 6d 65 6d 2e 6c 3d fe |e buffer|.mem.l=.|
|00000410| 97 28 24 32 30 30 30 2c | 31 29 00 80 06 20 72 65 |.($2000,|1)... re|
|00000420| 61 64 65 72 20 20 20 20 | 20 20 20 3b 52 65 61 64 |ader | ;Read|
|00000430| 20 64 61 74 61 00 dd 82 | 20 63 24 20 20 20 20 20 | data...| c$ |
|00000440| 20 20 20 20 20 3b 50 72 | 69 6e 74 20 64 61 74 61 | ;Pr|int data|
|00000450| 20 72 65 61 64 00 2e 72 | 65 70 65 61 74 65 72 00 | read..r|epeater.|
|00000460| dd 81 22 45 6e 74 65 72 | 20 77 6f 72 64 20 74 6f |.."Enter| word to|
|00000470| 20 73 65 6e 64 3f 22 20 | 20 20 20 3b 49 6e 70 75 | send?" | ;Inpu|
|00000480| 74 20 64 61 74 61 20 74 | 6f 20 73 65 6e 64 00 64 |t data t|o send.d|
|00000490| 24 3d dd 01 28 34 30 29 | 3a 80 0b 20 64 24 3d 22 |$=..(40)|:.. d$="|
|000004a0| 65 78 69 74 22 20 80 21 | 20 80 05 20 66 69 6e 69 |exit" .!| .. fini|
|000004b0| 73 68 20 20 20 20 20 20 | 3b 49 66 20 65 78 69 74 |sh |;If exit|
|000004c0| 20 69 73 20 74 79 70 65 | 64 20 74 68 65 6e 20 71 | is type|d then q|
|000004d0| 75 69 74 00 80 06 20 77 | 72 69 74 65 72 20 20 20 |uit... w|riter |
|000004e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|000004f0| 73 65 6e 64 20 64 61 74 | 61 20 74 6f 20 73 65 72 |send dat|a to ser|
|00000500| 76 65 72 00 80 06 20 72 | 65 61 64 65 72 20 20 20 |ver... r|eader |
|00000510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00000520| 72 65 61 64 20 64 61 74 | 61 20 66 72 6f 6d 20 73 |read dat|a from s|
|00000530| 65 72 76 65 72 00 dd 82 | 20 63 24 20 20 20 20 20 |erver...| c$ |
|00000540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000550| 3b 70 72 69 6e 74 20 64 | 61 74 61 00 80 05 20 72 |;print d|ata... r|
|00000560| 65 70 65 61 74 65 72 00 | 00 3b 46 72 65 65 20 6d |epeater.|.;Free m|
|00000570| 65 6d 6f 72 79 20 61 6c | 6c 6f 63 61 74 65 64 2c |emory al|located,|
|00000580| 20 63 6c 6f 73 65 20 63 | 6f 6e 6e 65 63 74 69 6f | close c|onnectio|
|00000590| 6e 20 61 6e 64 20 71 75 | 69 74 00 2e 66 69 6e 69 |n and qu|it..fini|
|000005a0| 73 68 00 64 3d fe 99 28 | 6d 65 6d 2e 6c 2c 24 31 |sh.d=..(|mem.l,$1|
|000005b0| 30 30 30 29 00 ec 90 28 | 73 6f 63 6b 2e 6c 29 00 |000)...(|sock.l).|
|000005c0| 80 02 00 00 3b 54 68 69 | 73 20 72 6f 75 74 69 6e |....;Thi|s routin|
|000005d0| 65 20 72 65 61 64 73 20 | 64 61 74 61 20 66 72 6f |e reads |data fro|
|000005e0| 6d 20 46 54 50 20 73 65 | 72 76 65 72 00 2e 72 65 |m FTP se|rver..re|
|000005f0| 61 64 65 72 00 73 6f 63 | 6b 72 65 61 64 2e 6c 3d |ader.soc|kread.l=|
|00000600| 30 20 20 20 20 20 20 20 | 20 3b 43 6c 65 61 72 20 |0 | ;Clear |
|00000610| 52 65 61 64 6d 61 73 6b | 00 73 6f 63 6b 72 65 61 |Readmask|.sockrea|
|00000620| 64 2e 6c 20 80 ce 20 73 | 6f 63 6b 2e 6c 20 20 20 |d.l .. s|ock.l |
|00000630| 20 20 20 20 3b 53 65 74 | 20 52 65 61 64 6d 61 73 | ;Set| Readmas|
|00000640| 6b 20 6f 6e 20 6f 75 72 | 20 73 6f 63 6b 65 74 00 |k on our| socket.|
|00000650| 67 3d ec 91 28 32 2c 26 | 73 6f 63 6b 72 65 61 64 |g=..(2,&|sockread|
|00000660| 2e 6c 2c 30 2c 30 2c 30 | 2c 30 29 20 20 20 20 20 |.l,0,0,0|,0) |
|00000670| 20 3b 57 61 69 74 20 75 | 6e 74 69 6c 20 74 68 65 | ;Wait u|ntil the|
|00000680| 72 65 20 69 73 20 73 6f | 6d 65 20 64 61 74 61 20 |re is so|me data |
|00000690| 74 6f 20 72 65 61 64 00 | 61 72 2e 6c 3d 24 34 30 |to read.|ar.l=$40|
|000006a0| 30 34 36 36 37 66 20 20 | 20 20 20 3b 46 49 4f 4e |04667f | ;FION|
|000006b0| 52 45 41 44 00 65 3d ec | 8f 28 73 6f 63 6b 2e 6c |READ.e=.|.(sock.l|
|000006c0| 2c 61 72 2e 6c 2c 6d 65 | 6d 2e 6c 29 20 20 20 20 |,ar.l,me|m.l) |
|000006d0| 20 20 20 20 20 3b 48 6f | 77 20 6d 75 63 68 20 64 | ;Ho|w much d|
|000006e0| 61 74 61 20 69 73 20 74 | 68 65 72 65 3f 00 66 3d |ata is t|here?.f=|
|000006f0| da 02 2e 6c 28 6d 65 6d | 2e 6c 29 20 20 20 20 20 |...l(mem|.l) |
|00000700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000710| 20 20 20 20 20 20 3b 50 | 6c 61 63 65 20 76 61 6c | ;P|lace val|
|00000720| 75 65 20 69 6e 20 66 00 | 63 3d ec 89 28 73 6f 63 |ue in f.|c=..(soc|
|00000730| 6b 2e 6c 2c 6d 65 6d 2e | 6c 2c 66 2c 30 29 20 20 |k.l,mem.|l,f,0) |
|00000740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00000750| 52 65 61 64 20 66 20 62 | 79 74 65 73 00 00 3b 54 |Read f b|ytes..;T|
|00000760| 68 69 73 20 72 6f 75 74 | 69 6e 65 20 65 78 74 72 |his rout|ine extr|
|00000770| 61 63 74 73 20 64 61 74 | 61 20 66 72 6f 6d 20 62 |acts dat|a from b|
|00000780| 75 66 66 65 72 20 61 6e | 64 20 70 6c 61 63 65 73 |uffer an|d places|
|00000790| 20 69 74 20 69 6e 20 63 | 24 00 62 75 66 2e 6c 3d | it in c|$.buf.l=|
|000007a0| 6d 65 6d 2e 6c 00 78 3d | da 02 2e 62 28 62 75 66 |mem.l.x=|...b(buf|
|000007b0| 2e 6c 29 3a 63 24 3d 22 | 22 00 80 0c 20 66 3e 30 |.l):c$="|"... f>0|
|000007c0| 00 63 24 3d 63 24 2b dc | 86 28 78 29 00 62 75 66 |.c$=c$+.|.(x).buf|
|000007d0| 2e 6c 3d 62 75 66 2e 6c | 2b 31 00 78 3d da 02 2e |.l=buf.l|+1.x=...|
|000007e0| 62 28 62 75 66 2e 6c 29 | 00 66 3d 66 2d 31 00 80 |b(buf.l)|.f=f-1..|
|000007f0| c1 00 80 07 00 00 3b 54 | 68 69 73 20 72 6f 75 74 |......;T|his rout|
|00000800| 69 6e 65 20 77 72 69 74 | 65 73 20 64 61 74 61 20 |ine writ|es data |
|00000810| 74 6f 20 73 65 72 76 65 | 72 00 2e 77 72 69 74 65 |to serve|r..write|
|00000820| 72 00 73 6f 63 6b 77 72 | 69 74 65 2e 6c 3d 30 20 |r.sockwr|ite.l=0 |
|00000830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 43 | | ;C|
|00000840| 6c 65 61 72 20 57 72 69 | 74 65 6d 61 73 6b 00 73 |lear Wri|temask.s|
|00000850| 6f 63 6b 77 72 69 74 65 | 2e 6c 20 80 ce 20 73 6f |ockwrite|.l .. so|
|00000860| 63 6b 2e 6c 20 20 20 3b | 73 65 74 20 57 72 69 74 |ck.l ;|set Writ|
|00000870| 65 6d 61 73 6b 20 6f 6e | 20 6f 75 72 20 73 6f 63 |emask on| our soc|
|00000880| 6b 65 74 00 67 3d ec 91 | 28 32 2c 30 2c 26 73 6f |ket.g=..|(2,0,&so|
|00000890| 63 6b 77 72 69 74 65 2e | 6c 2c 30 2c 30 2c 30 29 |ckwrite.|l,0,0,0)|
|000008a0| 20 20 20 20 20 3b 57 61 | 69 74 20 75 6e 74 69 6c | ;Wa|it until|
|000008b0| 20 73 65 72 76 65 72 20 | 69 73 20 72 65 61 64 79 | server |is ready|
|000008c0| 20 74 6f 20 72 65 61 64 | 20 6f 75 72 20 64 61 74 | to read| our dat|
|000008d0| 61 00 64 24 3d 64 24 2b | dc 86 28 24 61 29 3a 6c |a.d$=d$+|..($a):l|
|000008e0| 3d dc 8f 28 64 24 29 20 | 20 20 20 20 20 20 20 20 |=..(d$) | |
|000008f0| 20 20 20 20 20 20 20 20 | 20 3b 41 64 64 20 61 20 | | ;Add a |
|00000900| 4c 69 6e 65 20 46 65 65 | 64 20 74 6f 20 6f 75 72 |Line Fee|d to our|
|00000910| 20 73 74 72 69 6e 67 00 | 63 3d ec 87 28 73 6f 63 | string.|c=..(soc|
|00000920| 6b 2e 6c 2c 64 24 2c 6c | 2c 30 29 20 20 20 20 20 |k.l,d$,l|,0) |
|00000930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00000940| 53 65 6e 64 20 64 61 74 | 61 20 74 6f 20 73 65 72 |Send dat|a to ser|
|00000950| 76 65 72 00 80 07 00 | |ver.... | |
+--------+-------------------------+-------------------------+--------+--------+
